home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / library.arc / REFS.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  512 b   |  20 lines
  1. * REFS.CMD - subprogram to list the contents of REFERALS.DBF
  2. * This program issues 80 characters per line with no carraige returns
  3. * or line feeds.  The terminal or printer must perform a line feed
  4. * every 80 characters.
  5.  
  6. erase
  7. select primary
  8. GOTO TOP
  9. ? "Each line is:"
  10. ? "Record number    disk number+filename     description"
  11. ? "(hit any key to continue)"
  12. wait
  13. ?    
  14. DO WHILE .NOT. EOF
  15.    ?? STR(#,3)+" "+STR(DISK,2)+FILE+" "+DESCRIP
  16.    SKIP
  17. ENDDO
  18. ? "(hit any key to continue)"
  19. wait
  20. RETURNO